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**F ILE**1D**BASECHO 
BBBBBBBB AMAAAA SSSSSSSS EEEEEEEEEE cccccccc =H HH 000 
BBBBBBBB AAAAAA SSSSSSSS EEEEEEEEEE Cccccccc HH HH 000000 
BB BB AA AA SS EE cc HH HH 00 
BB BB AA AA SS EE CC HH HH 00 00 
8B BB AA AA SS EE cc HH HH 00 00 
BB AA SS EE cc HH HH 00 00 
BBBBBBBB AA AA SSSSSS FEEE EEE cc HHHHHHHHHH 00 00 
BBBBBBBB AA AA SSSSSS EEEEEEE cc HHHHHHHHHH 00 00 
BB BB AAAAAAAAAA SS €E CC HH HH 00 00 
BB BB AAAAAAAAAA SS EE CC HH HH 00 00 
BB BB AA AA SS EE cc HH HH 00 00 coos 
BB BB AA AA SS EE cc HH HH 00 00 eeee 
BBBBBBBB AA AA SSSSSSSS EEEEEEEEEE cccccccc Hk HH 000000 cece 
BBBBBBBB AA AA SSSSSSSS EEEEEEEEEE cccccccc =H HH 000000 eee 
LL T1111] SSSSSSSS 
LL 1111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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MODULE BASSECHO ( : 
ce = '1-002' ! File: BASECHO.B32 


BEGIN 


Lee ERAR AREER EEA EATER ATER TEREKEE KEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED wee A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN me DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION THE ABOVE co” feneee NOTICE. THIS SOFTWARE OR ANY OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
~ Sanusteketon NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: enmponat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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PETITTIIILILI LITLE tiiiiiiiiiiiiiiiiitiiins 
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++ 
FACILITY: BASIC=-PLUS-2 Miscellaneous 1/0 


! ABSTRACT: 


This module contains the BASIC ECHO and NOECHO functions, 
Which turn on and off echoing on a specified channel. 


' 
0031 
i 
' 
i 
i 
i 
ENVIRONMENT: VAX-11 User Mode 
i 
i 
i 
i 
i 
i 
ie 
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AUTHOR: John Sauter, CREATION DATE: 17-APR-1979 
MODIFIED BY: 


1-001 = Origin 
1-002 - Set up *18BSA_ USER_FP. JBS 25-JUL-1979 
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ee ee 

Re aids 

: 2¢ 0938 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
5; 0055 1! 

: 0056 1 ! LINKAGES: 

; 0057 1! 

; w 0058 1 

; @& 0059 ! REQUIRE ‘RTLIN:OTSLNK'; ! Define Linkages 

: 0489 1! 

3 0490 1 ! TABLE OF CONTENTS: 

: 664 0491 1! 

3; «66S 0492 1 

: 66 049 1 FORWARD ROUTINE 

hem 0494 1 BASSECHO, ! Enable echoing 

; Oo 0495 1 BASSNOE CHO; ! Disable echoing 

; «69 0496 1 

; 70 0497 1! 

: 71 0498 1 ! INCLUDE FILES: 

ie 04 1! 

! ee 0500 1 

3 R ners ! REQUIRE ‘RTLML:OTSLUB'; ! Get LUB definitions 

; a8 sts : REQUIRE ‘RTLML:OTSISB'; ! Get ISB definitions 

3 4 BB he : REQUIRE *RTLIN:RTLPSECT'; ! Macros for defining psects 
s 60 0907 1 LIBRARY ‘RTLSTARLE'; ! System symbols 

; 81 0908 1 

, Be 0909 1! 

; 8 0910 1 ! MACROS: 

; 84 0911 1! 

; & 0912 1! NONE 

; & 0913 1! 

: 87 0914 1 ! EQUATED SYMBOLS: 

; £8 0915 1! 

3 89 0916 1! NONE 

: 90 0917 1! 

5 91 bo15 1 ! PSECTS: 

; Ve 919 1! 

3 a7 o360 : DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
; 95 8356 1 ! OWN STORAGE: 

; % 09 1! 

3; 97 0924 1! NONE 

; 0925 1! 

3 99 0926 1 ! EXTERNAL REFERENCES: 

: 100 0927 1! 

: 101 928 1 

3 106 929 1 EXTERNAL ROUTINE 

: 10 930 1 pAseonen ZERO : “eC ! Open channel zero 

> 104 931 1 BASS$cB POSH t JSBLC 8 PUSH NOVALUE, i Load register CCB 

: 105 eat 1 BAS$$C(B-P JSB tee POP NOVALUE, ! Done with register CCB 
; 106 0933 1 BASSSSTOP. 10’: /NODA LOE; ! Signal fatal 1/0 error 


1$-}¢p-1964 90:20:08 yayett Bl ies: ey, 


; Ww? 934 1 

; 108 935 1 t+ : 

; 1% i § } i The following are the error codes used in this module. 

: 111 0938 1 

A \\6 0939 1 EXTERNAL LITERAL 

; Ni Reed ! BAS$K_IO_CHANOT : UNSIGNED (8); ! Channel not open. 


BASSECHO 16-Sep-1984 00:20: AX-11 Bliss-32 V4.0-742 Page 
f805 12-86-1382 09:82:98 UBASRTL SRC IBASECHO.852¢1 . (3) 
3s 1% 0942 1 GLOBAL ROUTINE BASSECHO ( ! Enable echoin 

: 117 0945 1 CHAN ! Channel on which to enable echoing 
, 118 0944 1 d= 

3; 19 0945 1 

s te 0946 1 . ++ 

s Yer 0947 1 ! FUNCTIONAL DESCRIPTION: 

5 ¢ 0948 1! 

; \$? e434 : Enables echoing on the terminal open on the specified channel. 
3 \$? 0951 1 ! FORMAL PARAMETERS: 

> 126 aa) 1! : : 
; ter 0955 1! CHAN. rl.v The channel whose terminal to enable echoing on 
> 128 0954 1! 

; 129 0955 1°! IMPLICIT INPUTS: 

; 13 0956 1! 

> 131 0957 1! NONE 

5 ie 0958 1! 

s Ta3 0959 1°! IMPLICIT OUTPUTS: 

: «134 0960 1! ; : 

3 13? 348 : } LUBSV_NOECHO which, when set, suppresses terminal echoing. 
5 tor 0963 1 ! ROUTINE VALUE: 

; 133 0964 1 ! COMPLETION CODES: 

; #4139 0965 1! 

3; 140 0966 1! SS$_NORMAL 

3 141 967 1! 

> 142 968 1 ! SIDE EFFECTS: 

3 143 0969 1! . ; 

> 144 0970 1! Signals if an error is encountered. oe” : 

3; 145 0971 1! BASSS$CB_PUSH will signet if the channel number is invalid. 
; 146 0972 1! We signal BAS$K_IO_CHANOT if the channel is not open. 

s 147 0973 1! 

: 148 0974 1 !<- 

: «149 0975 (1 

3 6190 0976 2 BEGIN 

s 151 0977 2 

s 132 0978 2 BUILTIN 

3 135 0979 2 FP; 

> 154 0980 2 

s 35 0981 2 GLOBAL REGISTER 

; 136 0982 2 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

3s 157 0983 2 

; 158 0984 LOCAL 

3 «6159 985 FMP : REF BLOCK C, BYTE); 

3; 160 986 

s 161 0987 FMP = .FP; 

; 166 0988 '¢ 

; 0989 ! Get the CCB for the channel. 

: 164 0990 !- 

: 165 991 

> 166 99 IF (.CHAN EQL 0) 

3 167 99 THEN 

3; «168 994 BEGIN 

; 169 95 '¢ ‘ . p 

: 170 643 : The user is referencing his controlling terminal. 

: 172 0998 BAS$S$CB_PUSH (LUBSK_LUN_INPU, LUBSK_ILUN_MIN); 


1 
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* CCB CISBSA_USER_FP) = .FMP CSFSL_SAVE_FPI; 
i If the controlling terminal is not yet open, open it. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP)); 
END 
ELSE 
‘ BEGIN 
: This is an ordinary channel. 


BASS$CB_PUSH (.CHAN, LUBSK LUN MIN); 
5ce CISBSA_USER_FP] = .FMP-CSFSL_SAVE_FP); 


oo 
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'¢ 
! If the channel is not now open, either there is a problem with 
the OPEN code, or the non-zero channel was not first opened. 


If ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BAS$K_IO_CHANOT); 
'¢ 
: Now clear the NOECHO bit, which will cause the record level code 
to tell RMS to return to echoing terminal input. 
CCB CLUBSV_NOECHO) = 0; 
! We are done with register CCB. 


BAS$$CB_POP (); 
RETURN TSS$_NORMAL) ; 
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! end of BASSECHO 

TLE BASSECHO 

ENT \1-002\ 

TRN BASS$SOPEN_ZERO, BAS$$CB_PUSH 
XTRN BASS$SCB_POP, BAS$$STOP_TO 
EXTRN BASS$K_IO_CHANOT 


-PSECT _BASSCODE.NOWRT, SHR, PIC,2 


081¢ 00000 .ENTRY BASSECHO, Save R2.R3,R4,R11 5 0942 
54 000000006 00 9 000 MOVAB BAS$SCB_PUSH, R4 : 
53 50 dO 000 MOVL FP, FMP 3; 0987 
04 AC 05 0000C TSTL CHAN : 0992 
1E 12 OO00F BNEG =: 1$ ; 
50 08 CE 00011 MNEGL #8, R : 0998 
52 0 c 0014 MNEGL #7, R ; 
64 0017 JSB BAS$S(B_PUSH ; 
FF4C CB 0c a3 00 00019 MOVL  12(FMP)> -180(CCB) : 0999 
29 FC AB EB OOOIF BLBS  -4(CCB). 3$ : 1004 
0c A3 DD 00023 PUSHL 12(FMP) s 


1 

ASSECHO 1§- -Sep-19 0: AX=-11 Bliss=32 V4.0-742 p 7 

ti 14- sane 40 9: 2 £98 BASRTL.SRCJBASECHO.B32;1 age 3) 
000900006 00 Fe 00 6 CALLS sl. BASSSOPEN_ZERO ; 

se mw PRRO™ me Eee he 
64 16 00035 JS8 BAS$$CB_PUSH : 

rec EAE RR BRENT og, BUR Hater bocce 1 
E 006 8F gf 0041 MOVZBL HBASSK i0 CHANOT , -(SP) F 

wre * S $i Bk dooue 3$: Sith Ae aon dk a + 1027 

000000006 00 16 00050 ° JSB BAS$$CB_POP : 1934 

50 01 DO 000% MOVL #1, RO” : 103 

4 00059 RET : 10 


3 Routine Size: 90 bytes, Routine Base: _BASSCODE + 0000 


3 208 1034 1 


D1 J 


'¢ 

Get the CCB for the channel. 

IF (.CHAN EQL 0) 

TH 

* BEGIN 

The user is referencing his controlling terminal. 
BASS$CB_PUSH (LUBSK_LUN_INPU, LUBSK_ILUN_MIN); 


ASSECHO 16-Sep-1984 00:20: AX=11 Bliss-32 V4.0-742 P ? | 
#30 13-88-1382 90:40:98 EBASRTL SRe BASECHO.832;1 set (4) } 
; 10 1035 1 GLOBAL ROUTINE BASSNOECHO ( ! Disable echoing 

12 ; : va CHAN ! Channel on which to disable echoing 
1 | 
Bo ORB I 
1? : ? : : FUNCTIONAL DESCRIPTION: 
" : § : ! Disables echoing on the terminal open on the specified channel. 
19 é FORMAL PARAMETERS: 
: CHAN. rl. The channel whose terminal to disable echoing on 
1048 1 | IMPLICIT INPUTS: 
4 1049 1! 
jor 
i 105 IMPLICIT OUTPUTS: 
; Wee 1 ; LUBSV_NOECHO which, when set, suppresses terminal echoing. 
$ 1 1056 1 ' ROUTINE VALUE: 
§ ¢ +44 : COMPLETION CODES: 
$35 1059 : SS$_NORMAL 
36 1061 ; SIDE EFFECTS: 
238 1068 1 Signals if an error is encountered. 
39 1064 1! BASSS$CB_PUSH will signet if the channel number is invalid. 
zc 13e2 ! } We signal BASS$K_IO_CHANOT if the channel is not open. 
¢ 1067 1 i-- 
24 1068 1 
see Hs 34 BEGIN 
246 1071 BUILTIN 
sta : ; FP; 
seg 1074 GLOBAL REGISTER 
$20 : 2 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
252 1077 LOCAL 
27 : $ FMP : REF BLOCK C, BYTE); 
55 1080 FMP = .FP; 
56 1081 
57 1 § 
58 1 
59 1084 
60 1085 
61 1 $ 
$¢ 1 
6 1 
64 1 
$03 1 : 
66 1 
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1 
ese 1984 :20: AX-11 Bliss-32 V4.0-742 
1e-8ep-19 4 90:90:98 EBASRTL SRCIBASECHO.B32¢1 
; CCB CISBSA_USER_FP] = .FMP CSFSL_SAVE_FPI; 
! If the controlling terminal is not yet open, open it. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FPI); 


END 
ELSE 
BEGIN 
'¢ 


This is an ordinary channel. 


BASS$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
cc CISBSA_USER_FP] = .FMP”CSFSL_SAVE_FPI; 


‘4 
! If the channel is not now open, either there is a problem with 
the OPEN code, or the non-zero channel was not first opened. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$STOP_IO (BASS$K_IO_CHANOT); 
i Now set the NOECHO bit, which will cause the record level code 
;_to tell RMS to stop echoing terminal input. 

CCB C[LUBSV_NOECHO) = 1; 
i we are done with register CCB. 

paseecs POP (); 


ETURN TSS$_NORMAL); 
END; ! end of BASSNOECHO 


081¢ 00000 .ENTRY BASS$NOECHO, Save R2,R3,R4,R11 
54 000000006 00 9€ 00002 MOVAB BAS$$CB_PUSH, R4 
53 5D DO 00009 MOVL FP, FMP 
04 AC 05 0000C TSTL CHAN 
1E 12 OOO0F BNE 6-18 
50 08 CE 90011 MNEGL 48, RO 
52 07 CE 00014 MNEGL #7, R2 
64 16 00017 JSB BAS$$CB_PUSH 
FF4C «CB 0c A3 00 00019 MOVL  12(FMP)> -180(CCB) 
29 FC AB E8 OOO1F BLE -4(CCB), 3$ 
0¢ As OD 9085 PUSHL 12(FMP) 
000000006 00 01 FB 00026 CALLS. #1, BASSSOPEN_ZERO 
3 11 00020 BRB 2$ 
D4 OOO2F 18: CLRL = RO 
52 04 AC DO 00031 MOVL CHAN, R2 
64 if} 0035 JSB BAS$$CB_PUSH 
FF4C CB .0¢ A300 00037 MOVL  12(FMP)> -180(CCB) 


Sete Se Se Se Ge Se Se Se Se F+- Se Se Se Se Be Se 
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BASSE CHO 1 
Asss 14- BASRTL.SRCJBASECHO.B32; 1 (4) 
MY: FC AB £8 3D 2$: BLBS cee | : 1116 
: 006 8F 9A 00041 MOVZBL HBASSK 0 Cwanor -(SP) : | 
000000006 0 1 te 45 CALLS » BASSSSTOP_I & 
A 1 8 4¢ 3$ 6158 -96(CCB) ~ + 1120 
000000006 00 16 005 JSB ghSsice. POP t 1126 
50 1 D 0046 MOVL + 1125 
04 0005 RET t 1126 


; Routine Size: 90 bytes, Routine Base: _BASSCODE + 005A 


o¢ aT 44 1 
0 1128 1 END ! end of module BASSECHO 
04 ig 1 
305 1130 0 ELUDOM 
; PSECT SUMMARY | 
5 Name Bytes Attributes 
|} _BASSCODE 180 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
wooccece Symbols -------- Pages Processing | 
File Total Loaded Percent Mapped ime 
_$255$DUA28 : CSYSLIBISTARLET.L32;1 9776 2 0 581 00:01.2 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASECHO/OBJ=0BJ$:BASECHO MSRC$:BASECHO/UPDATE=(ENH$:BASECHO) 
; Size: 180 code + 0 data bytes 


un Time 00:10.0 
phy tenes 00: 388° 8 
Lines/CPU Min: 
eee ok ade 40301 

A Used: 119 pages 
a ation Complete 
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